/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / bltzdemo.lha / examples1 / amigaaballs2.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 63 6f 6e 74 | 72 69 62 75 74 69 6f 6e |;.; cont|ribution|
|00000010| 20 66 72 6f 6d 20 56 20 | 41 20 48 69 6c 6c 00 3b | from V |A Hill.;|
|00000020| 00 3b 20 28 74 68 61 6e | 6b 73 20 56 65 72 6e 6f |.; (than|ks Verno|
|00000030| 6e 29 00 3b 00 3b 20 41 | 6c 74 65 72 65 64 20 74 |n).;.; A|ltered t|
|00000040| 6f 20 27 42 6c 69 74 7a | 27 20 6d 6f 64 65 20 62 |o 'Blitz|' mode b|
|00000050| 79 20 44 61 76 69 64 20 | 4d 61 7a 69 61 72 6b 61 |y David |Maziarka|
|00000060| 00 00 3b 54 68 69 73 20 | 69 73 20 61 6d 69 67 61 |..;This |is amiga|
|00000070| 20 6d 6f 64 65 20 76 65 | 72 73 69 6f 6e 20 6f 66 | mode ve|rsion of|
|00000080| 20 6d 6f 76 69 6e 67 20 | 62 61 6c 6c 73 2e 00 3b | moving |balls..;|
|00000090| 49 66 20 66 6f 72 20 73 | 6f 6d 65 20 72 65 61 73 |If for s|ome reas|
|000000a0| 6f 6e 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 66 |on the p|rogram f|
|000000b0| 61 69 6c 73 20 72 75 6e | 20 69 74 20 61 67 61 69 |ails run| it agai|
|000000c0| 6e 00 3b 62 75 74 20 66 | 69 72 73 74 20 74 75 72 |n.;but f|irst tur|
|000000d0| 6e 20 27 52 75 6e 74 69 | 6d 65 20 45 72 72 6f 72 |n 'Runti|me Error|
|000000e0| 20 44 65 62 75 67 67 65 | 72 2e 2e 2e 27 20 69 6e | Debugge|r...' in|
|000000f0| 20 74 68 65 00 3b 27 43 | 6f 6d 70 69 6c 65 72 27 | the.;'C|ompiler'|
|00000100| 20 6d 65 6e 75 20 75 6e | 64 65 72 20 27 4f 70 74 | menu un|der 'Opt|
|00000110| 69 6f 6e 73 27 20 74 6f | 20 6f 6e 21 22 00 3b 00 |ions' to| on!".;.|
|00000120| 3b 74 68 65 20 6d 61 78 | 20 6e 6f 2e 20 6f 66 20 |;the max| no. of |
|00000130| 73 63 72 65 65 6e 73 20 | 6d 75 73 74 20 62 65 20 |screens |must be |
|00000140| 69 6e 63 72 65 61 73 65 | 64 20 74 6f 20 37 00 3b |increase|d to 7.;|
|00000150| 20 69 6e 20 74 68 65 20 | 6f 70 74 69 6f 6e 73 20 | in the |options |
|00000160| 77 69 6e 64 6f 77 2e 20 | 46 6f 72 20 74 68 69 73 |window. |For this|
|00000170| 20 70 72 6f 67 2e 20 20 | 74 6f 20 72 75 6e 00 00 | prog.  |to run..|
|00000180| 23 73 63 77 3d 33 32 30 | 3a 23 73 68 3d 32 35 36 |#scw=320|:#sh=256|
|00000190| 3a 23 78 6f 66 66 3d 23 | 73 63 77 2f 32 3a 23 79 |:#xoff=#|scw/2:#y|
|000001a0| 6f 66 66 3d 23 73 68 2f | 32 00 23 72 64 3d 31 31 |off=#sh/|2.#rd=11|
|000001b0| 30 00 75 2e 66 3d 36 2e | 32 38 2f 33 36 30 00 80 |0.u.f=6.|28/360..|
|000001c0| 33 2e 77 20 72 2c 64 65 | 68 2c 73 75 70 2c 63 79 |3.w r,de|h,sup,cy|
|000001d0| 2c 64 78 2c 64 79 2c 73 | 63 2c 73 6e 2c 63 73 00 |,dx,dy,s|c,sn,cs.|
|000001e0| 80 04 20 78 2e 77 28 37 | 33 30 29 2c 79 2e 77 28 |.. x.w(7|30),y.w(|
|000001f0| 37 33 30 29 00 77 2e 66 | 3d 30 00 00 dd 82 20 22 |730).w.f|=0.... "|
|00000200| 54 68 69 73 20 69 73 20 | 74 68 65 20 27 42 6c 69 |This is |the 'Bli|
|00000210| 74 7a 20 6d 6f 64 65 27 | 20 6f 70 74 69 6f 6e 20 |tz mode'| option |
|00000220| 6f 66 20 42 6c 69 74 7a | 20 42 61 73 69 63 2e 22 |of Blitz| Basic."|
|00000230| 00 dd 82 20 22 54 68 69 | 73 20 64 65 6d 6f 20 69 |... "Thi|s demo i|
|00000240| 73 20 69 6e 20 68 69 2d | 72 65 73 21 22 00 dd 82 |s in hi-|res!"...|
|00000250| 22 22 3a dd 82 20 22 50 | 72 65 73 73 20 6c 65 66 |"":.. "P|ress lef|
|00000260| 74 20 6d 6f 75 73 65 20 | 62 75 74 74 6f 6e 20 74 |t mouse |button t|
|00000270| 6f 20 63 6f 6e 74 69 6e | 75 65 2e 22 00 80 0a 00 |o contin|ue."....|
|00000280| dd 82 20 22 50 6c 65 61 | 73 65 20 57 61 69 74 2e |.. "Plea|se Wait.|
|00000290| 2e 2e 2e 2e 22 00 dd 81 | 20 22 50 72 65 73 73 20 |...."...| "Press |
|000002a0| 72 69 67 68 74 20 6d 6f | 75 73 65 20 62 75 74 74 |right mo|use butt|
|000002b0| 6f 6e 20 74 6f 20 65 6e | 64 2e 22 00 00 63 79 3d |on to en|d."..cy=|
|000002c0| 30 00 80 16 20 77 3d 30 | 20 80 18 20 36 2e 32 38 |0... w=0| .. 6.28|
|000002d0| 20 80 19 20 75 00 20 20 | 78 28 63 79 29 3d e0 0a | .. u.  |x(cy)=..|
|000002e0| 28 77 29 2a 23 72 64 3a | 79 28 63 79 29 3d e0 05 |(w)*#rd:|y(cy)=..|
|000002f0| 28 77 29 2a 23 72 64 00 | 20 20 78 28 63 79 2b 33 |(w)*#rd.|  x(cy+3|
|00000300| 36 30 29 3d 78 28 63 79 | 29 3a 79 28 63 79 2b 33 |60)=x(cy|):y(cy+3|
|00000310| 36 30 29 3d 79 28 63 79 | 29 00 20 20 63 79 3d 63 |60)=y(cy|).  cy=c|
|00000320| 79 2b 31 00 80 17 20 77 | 00 80 16 20 63 79 3d 30 |y+1... w|... cy=0|
|00000330| 20 80 18 20 31 30 00 20 | 20 78 28 63 79 2b 37 32 | .. 10. | x(cy+72|
|00000340| 30 29 3d 78 28 63 79 29 | 3a 79 28 63 79 2b 37 32 |0)=x(cy)|:y(cy+72|
|00000350| 30 29 3d 79 28 63 79 29 | 00 80 17 20 63 79 00 00 |0)=y(cy)|... cy..|
|00000360| 80 34 00 c8 01 20 30 2c | 34 30 2c 33 32 30 2c 32 |.4... 0,|40,320,2|
|00000370| 35 36 2c 24 66 66 66 39 | 2c 32 2c 38 2c 34 2c 33 |56,$fff9|,2,8,4,3|
|00000380| 32 30 2c 33 32 30 00 d0 | 01 20 30 2c 33 32 30 2c |20,320..|. 0,320,|
|00000390| 32 35 36 2c 32 3a c7 02 | 20 30 00 80 06 20 6d 61 |256,2:..| 0... ma|
|000003a0| 6b 65 73 68 61 70 65 00 | c7 04 20 30 2c 30 3a dd |keshape.|.. 0,0:.|
|000003b0| 81 20 22 50 72 65 73 73 | 20 4c 65 66 74 20 4d 6f |. "Press| Left Mo|
|000003c0| 75 73 65 20 42 75 74 74 | 6f 6e 20 54 6f 20 53 70 |use Butt|on To Sp|
|000003d0| 65 65 64 20 55 70 22 00 | 80 16 20 64 3d 31 20 80 |eed Up".|.. d=1 .|
|000003e0| 18 20 36 20 20 20 20 20 | 20 3b 73 65 74 20 73 63 |. 6     | ;set sc|
|000003f0| 72 65 65 6e 20 20 6f 70 | 74 69 6f 6e 73 20 74 6f |reen  op|tions to|
|00000400| 20 37 00 20 20 d0 05 20 | 30 2c 64 00 80 17 00 ce | 7.  .. |0,d.....|
|00000410| 05 20 30 2c 30 2c 30 2c | 30 00 ce 05 20 31 2c 31 |. 0,0,0,|0... 1,1|
|00000420| 30 2c 31 35 2c 39 00 ce | 05 20 32 2c 30 2c 31 30 |0,15,9..|. 2,0,10|
|00000430| 2c 30 00 ce 05 20 33 2c | 30 2c 31 32 2c 30 00 00 |,0... 3,|0,12,0..|
|00000440| 73 63 3d 30 3a 72 3d 30 | 00 80 bb 00 20 20 80 bb |sc=0:r=0|....  ..|
|00000450| 00 20 20 20 20 20 20 80 | 16 20 64 65 68 3d 30 20 |.      .|. deh=0 |
|00000460| 80 18 20 33 36 30 20 80 | 19 20 37 00 20 20 20 20 |.. 360 .|. 7.    |
|00000470| 20 20 20 20 20 20 80 16 | 20 73 75 70 3d 30 20 80 |      ..| sup=0 .|
|00000480| 18 20 36 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |. 6.    |        |
|00000490| 80 0b 20 df 04 28 30 29 | 3c 3e 31 20 80 21 20 80 |.. ..(0)|<>1 .! .|
|000004a0| 37 00 20 20 20 20 20 20 | 20 20 20 20 20 20 c8 04 |7.      |      ..|
|000004b0| 20 73 63 00 20 20 20 20 | 20 20 20 20 20 20 20 20 | sc.    |        |
|000004c0| 80 2c 20 d0 01 20 73 63 | 00 20 20 20 20 20 20 20 |., .. sc|.       |
|000004d0| 20 20 20 20 20 73 6e 3d | 64 65 68 2b 72 2b 73 75 |     sn=|deh+r+su|
|000004e0| 70 00 20 20 20 20 20 20 | 20 20 20 20 20 20 63 73 |p.      |      cs|
|000004f0| 3d 64 65 68 2b 73 75 70 | 00 20 20 20 20 20 20 20 |=deh+sup|.       |
|00000500| 20 20 20 20 20 64 78 3d | 78 28 73 6e 29 2b 23 78 |     dx=|x(sn)+#x|
|00000510| 6f 66 66 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |off.    |        |
|00000520| 64 79 3d 79 28 63 73 29 | 2b 23 79 6f 66 66 00 20 |dy=y(cs)|+#yoff. |
|00000530| 20 20 20 20 20 20 20 20 | 20 20 20 cb 01 20 30 2c |        |   .. 0,|
|00000540| 64 78 2c 64 79 00 20 20 | 20 20 20 20 20 20 20 20 |dx,dy.  |        |
|00000550| 20 20 73 63 3d 73 63 2b | 31 00 20 20 20 20 20 20 |  sc=sc+|1.      |
|00000560| 20 20 20 20 20 20 80 0b | 20 df 04 28 30 29 3d 32 |      ..| ..(0)=2|
|00000570| 20 80 21 20 80 02 00 20 | 20 20 20 20 20 20 20 20 | .! ... |        |
|00000580| 20 80 17 20 73 75 70 00 | 20 20 20 20 20 20 20 20 | .. sup.|        |
|00000590| 20 20 73 63 3d 30 00 20 | 20 20 20 20 20 80 17 20 |  sc=0. |     .. |
|000005a0| 64 65 68 00 20 20 20 20 | 20 20 72 3d 72 2b 38 00 |deh.    |  r=r+8.|
|000005b0| 20 20 80 bc 20 72 3e 33 | 36 30 00 20 20 72 3d 30 |  .. r>3|60.  r=0|
|000005c0| 00 80 bc 20 df 04 28 30 | 29 3d 32 00 80 02 00 00 |... ..(0|)=2.....|
|000005d0| 2e 6d 61 6b 65 73 68 61 | 70 65 00 20 20 20 bb 82 |.makesha|pe.   ..|
|000005e0| 20 31 34 2c 31 34 2c 38 | 2c 33 00 20 20 20 bb 81 | 14,14,8|,3.   ..|
|000005f0| 20 31 34 2c 31 34 2c 38 | 2c 32 00 20 20 20 b2 03 | 14,14,8|,2.   ..|
|00000600| 20 31 36 2c 31 32 2c 31 | 00 20 20 20 bb 81 20 31 | 16,12,1|.   .. 1|
|00000610| 34 2c 31 34 2c 37 2c 32 | 00 20 20 20 bb 81 20 31 |4,14,7,2|.   .. 1|
|00000620| 35 2c 31 34 2c 37 2c 32 | 00 20 20 20 bb 81 20 31 |5,14,7,2|.   .. 1|
|00000630| 35 2c 31 34 2c 36 2c 33 | 00 20 20 20 cd 08 20 30 |5,14,6,3|.   .. 0|
|00000640| 2c 35 2c 35 2c 32 33 2c | 32 33 00 20 20 20 cd 0d |,5,5,23,|23.   ..|
|00000650| 20 30 00 20 20 20 b2 05 | 00 80 07 00 00 00 00    | 0.   ..|....... |
+--------+-------------------------+-------------------------+--------+--------+